GridOff:AxesOff:Func
For(A,1,9):FnOff A:End
ClrDraw:0\->\Xmin:0\->\Ymin:94\->\Xmax:62\->\Ymax
For(A,0,94,2)
  Pxl-On(0,A)
  Pxl-On(62,A)
End
For(A,2,60,2)
  Pxl-On(A,0)
  Pxl-On(A,94)
End
9\->\dim(L\1\):Fill(0,L\1\)
For(A,1,9)
  randInt(42,58)\->\L\1\(A)
End
randInt(1,8)\->\F:L\1\(F+1)\->\L\1\(F)
For(A,1,8)
  Line(11(A-1)+3,62-L\1\(A),11A+3,62-L\1\(A+1))
End
Pxl-On(L\1\(F)-1,11(F-1)+4)
Pxl-On(L\1\(F+1)-1,11F+2)
5+randInt(0,79)\->\A:2\->\B:0\->\C:0\->\D:30\->\E

Lbl 0
Text(2,2,"       "):Text(2,2,E)
Text(B-D,A-C-4,"             "):Text(B,A,"\pi\")
getKey\->\G
If E>0:Then
  If G=24:Then
    Text(B,A-4,">")
    C+(C<3)\->\C:E-1\->\E
  End
  If G=26:Then
    Text(B,A+5,"<")
    C-(C>\(-)\3)\->\C:E-1\->\E
  End
  If G=34:Then
    D-(D>\(-)\3)\->\D:E-1\->\E
  Else
    D+(D<5)\->\D
  End
End
A+C\->\A:B+D\->\B
If A<5 or A>84 or B<2:Goto 1
L\1\(iPart((A+8)/11))\->\G
L\1\(iPart((A+19)/11))\->\H
If (B+5)<(G+(H-G)fPart((A-3)/11)):Goto 0
If C\!=\0 or D>2 or iPart((A+8)/11)\!=\F:Then
  For(C,\(-)\2,2)
    B+3C\->\B
    Text(B,A+C+2,"*")
    Text(B,A-C-2,"*")
  End
  Text(10,29,"TU PIERDES")
Else
  Text(10,33,"TU GANAS")
End

Lbl 1
Text(46,27,"PULSE ENTER")
While getKey\!=\105:End
ClrHome
DelVar A:DelVar B:DelVar C:DelVar D
DelVar E:DelVar F:DelVar G:DelVar H
DelVar L\1\